home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 May / 64er_Magazin_87-05_1987_Markt__Technik_de.d64 / bild zeigen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  757b  |  23 lines
  1. 10 fork=0to44:reada:poke820+k,a:next
  2. 30 rem  ^ datas einlesen
  3. 50 input"bildname ";na$:sys(57812)"h"+na$,8,0:sys820
  4. 70 rem  ^ hires laden
  5. 90 ci=peek(56576):vi=peek(53272)
  6. 110 rem ^ register sichern
  7. 130 sys(57812)"f"+na$,8,0:sys829
  8. 150 rem ^ farbe laden
  9. 170 poke53265,11:poke53280,0:poke53281,peek(51152)
  10. 190 rem ^ bildschirmfarbe setzen
  11. 210 poke56576,148:poke53272,9
  12. 230 rem ^ neue vic bank ansprechen
  13. 250 poke53270,216:sys838:poke53265,59
  14. 270 rem ^ farbe setzen,bild einschalten
  15. 290 getr$:ifr$=""andpeek(653)=0then290
  16. 310 rem ^ auf reaktion warten
  17. 330 poke53265,11:poke56576,ci:poke53272,vi
  18. 340 poke53270,200:poke53281,0:print"[147]";:poke53265,27
  19. 360 rem ^ ausschalten des bildes
  20. 380 data160,224,162,0,169,0,76,213,255,160,192,162,0,162,0,76,213,255,160,195
  21. 390 data162,232,132,96,134,95,160,199,162,208,132,91,134,90,160,219,162,232
  22. 400 data132,89,134,88,76,191,163
  23.